home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / win / edu / profan2 / beispiel.lzh / HYPER.PRF < prev    next >
Encoding:
Text File  |  1995-07-31  |  4.1 KB  |  161 lines
  1.         Declare Meldung$,Cr$
  2.         Let Cr$=@Chr$(13)
  3.         WindowStyle 16
  4.         WindowTitle "HYPERTEXT"
  5.  
  6. Boat:
  7.  
  8.         Cls
  9.         LoadBmp "BOAT1.BMP",2,20;0
  10.         UseBrush 1,@RGB(0,31,31)
  11.         TextColor @RGB(0,0,31),-1
  12.  
  13.         RoundRect 110,16-190,36;10,10
  14.         UseFont "System",1,3,0,0,1
  15.         DrawText 116,19,"A"
  16.         UseFont "System",1,3,0,0,0
  17.         DrawText 124,19,"bout..."
  18.  
  19.         RoundRect 20,270-70,290;10,10
  20.         UseFont "System",1,3,0,0,1
  21.         DrawText 26,273,"E"
  22.         UseFont "System",1,3,0,0,0
  23.         DrawText 34,273,"xit"
  24.  
  25.         RoundRect 20,300-180,320;10,10
  26.         UseFont "System",1,3,0,0,1
  27.         DrawText 26,303,"M"
  28.         UseFont "System",1,3,0,0,0
  29.         DrawText 34,303,"echanical Systems"
  30.  
  31.         RoundRect 20,330-210,350;10,10
  32.         UseFont "System",1,3,0,0,1
  33.         DrawText 26,333,"D"
  34.         UseFont "System",1,3,0,0,0
  35.         DrawText 34,333,"eck & Cockit Framing"
  36.  
  37.         RoundRect 20,360-240,380;10,10
  38.         UseFont "System",1,3,0,0,1
  39.         DrawText 26,363,"H"
  40.         UseFont "System",1,3,0,0,0
  41.         DrawText 34,363,"ull Framing and Planking"
  42.  
  43.         TextColor 0,-1
  44.         UseFont "Helv",18,0,0,0,0
  45.         DrawText 300,363,"⌐1991 Roland G. Hⁿlsmann (Profan Version)"
  46.         UseFont "System",1,3,0,0,0
  47.  
  48. WaitForInput:
  49.  
  50.         WaitInput
  51.         Case @KeyIn("Aa"):Goto "About"
  52.         Case @KeyIn("Ee"):Goto "Ende"
  53.         Case @KeyIn("Mm"):Goto "Mechanics"
  54.         Case @KeyIn("Dd"):Goto "Cockpit"
  55.         Case @KeyIn("Hh"):Goto "Frame"
  56.         Case @KeyIn("Bb"):Goto "Boat"
  57.         Case @Mouse(110,16-190,36):Goto "About"
  58.         Case @Mouse(20,270-70,290):Goto "Ende"
  59.         Case @Mouse(20,300-180,320):Goto "Mechanics"
  60.         Case @Mouse(20,330-210,350):Goto "Cockpit"
  61.         Case @Mouse(20,360-240,380):Goto "Frame"
  62.         Case @Mouse(520,330-570,350):Goto "Boat"
  63.         Goto "WaitForInput"
  64.  
  65. Ende:
  66.  
  67.         Cls
  68.         End
  69.  
  70. About:
  71.  
  72.         Let Meldung$=@Add$("IRENE",Cr$)
  73.         Let Meldung$=@Add$(Meldung$,\
  74.                            "Designed by John L. Hacker")
  75.         Let Meldung$=@Add$(Meldung$,Cr$)
  76.         Let Meldung$=@Add$(Meldung$,"Length: 28 feet")
  77.         Let Meldung$=@Add$(Meldung$,Cr$)
  78.         Let Meldung$=@Add$(Meldung$,"Draft: 2 feet")
  79.         Let Meldung$=@Add$(Meldung$,Cr$)
  80.         Let Meldung$=@Add$(Meldung$,"Beam: 6 feet 8 inches")
  81.         Let Meldung$=@Add$(Meldung$,Cr$)
  82.         Let Meldung$=@Add$(Meldung$,"Speed: 22 mph")
  83.         MessageBox Meldung$,"About...",64
  84.         Goto "WaitForInput"
  85.  
  86. Mechanics:
  87.  
  88.         Cls
  89.         LoadBmp "MECH1.BMP",2,20;0
  90.         UseBrush 1,@RGB(0,31,31)
  91.         TextColor @RGB(0,0,31),-1
  92.  
  93.         RoundRect 520,330-570,350;10,10
  94.         UseFont "System",1,3,0,0,1
  95.         DrawText 526,333,"B"
  96.         UseFont "System",1,3,0,0,0
  97.         DrawText 534,333,"ack"
  98.  
  99.         TextColor 0,-1
  100.         UseFont "Helv",18,0,0,0,0
  101.         DrawText 300,363,"⌐1991 Roland G. Hⁿlsmann \
  102.                           (Profan Version)"
  103.         UseFont "System",1,3,0,0,0
  104.  
  105.         Goto "WaitForInput"
  106.  
  107. Cockpit:
  108.  
  109.         Cls
  110.         UseBrush 1,@RGB(0,31,31)
  111.         LoadBmp "COCKPIT1.BMP",2,20;0
  112.         TextColor @RGB(0,0,31),-1
  113.  
  114.         RoundRect 520,330-570,350;10,10
  115.         UseFont "System",1,3,0,0,1
  116.         DrawText 526,333,"B"
  117.         UseFont "System",1,3,0,0,0
  118.         DrawText 534,333,"ack"
  119.  
  120.         TextColor 0,-1
  121.         UseFont "Helv",18,0,0,0,0
  122.         DrawText 300,363,"⌐1991 Roland G. Hⁿlsmann \
  123.                           (Profan Version)"
  124.         UseFont "System",1,3,0,0,0
  125.  
  126.         Goto "WaitForInput"
  127.  
  128. Frame:
  129.  
  130.         Cls
  131.         UseBrush 1,@RGB(0,31,31)
  132.         LoadBmp "FRAME1.BMP",0,0;0
  133.         TextColor @RGB(0,0,31),-1
  134.  
  135.         RoundRect 520,330-570,350;10,10
  136.         UseFont "System",1,3,0,0,1
  137.         DrawText 526,333,"B"
  138.         UseFont "System",1,3,0,0,0
  139.         DrawText 534,333,"ack"
  140.  
  141.         TextColor 0,-1
  142.         UseFont "Helv",18,0,0,0,0
  143.         DrawText 300,363,"⌐1991 Roland G. Hⁿlsmann \
  144.                           (Profan Version)"
  145.         UseFont "System",1,3,0,0,0
  146.  
  147.         Goto "WaitForInput"
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.